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EDTSEXEC = enter and exit Line and change mode 16-Sep-1984 90:17:80 VAX-11 Bliss-32 


Pa 1 
14-Sep-1984 ” 


V4.0-7 46 
DISKSVMSMASTER:CEDT.SRCJEXEC.BLI;1 (1) 


EC = enter and exit Line and change mode' 

C ! Enter and Exit Line and Change Bog 
em = 'v04-000' ! File: EXEC.BLI Edit: JBS1 54 

= 


0 
0005 BEGIN 
0 : 
Gog? pannus niagesmaipnannaa ah St mine ripen: 
'® 
009 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ba 
DANCE THE TER OF C C TH 


; 3 
3 4 F 
; 5 1 5 
3 6 1 : 
3 7 1 $ 
3 8 1 : 
3 S 1 * : 
3 10 1 * : 
: 11 0 1 a : 
: \¢ B26 1 * : 
; ¥ 0015 1 @ : 
: «614 0014 1 !* ONLY IN ACCORDANCE WITH S SU LICENSE AND WITH THE * ; 
. oe 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF R HE * 3 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
; 13 4 : tod TRANSFERRED. * : 
° .* ® i e 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
3 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
3 $ 38 § : ‘* CORPORATION. * | 3 
° .* * i Ps 
; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * : 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
; 0026 1 !* ‘ : 
, ef 0027 1 !« * 3 
; 28 00 8 1 See R RRR ARERR ARERR A AAAS A AAA AAA AAAAAAAAAAAAARARARAAEAAAREEEE | D4 
; G 0029 1! : 
; $6 $080 1 3 
; By 0031 1 !++¢ 3 
3 3 i874 1 ! FACILITY: EDT -- The DEC Standard Editor | 3 
ce 0033 1! : 
; «(34 0034 1 | ABSTRACT: ; 
; 0035 1! | : 
; & 0036 1! This module provides the initialization and termination 3 
3 He it : processing for entering and exiting Line and change mode. : 
3 ip st : ENVIRONMENT: Runs at any access mode - AST reentrant | F 
; 4) 0041 1 ! AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 : 
: ¢g Bne¢ 1! : 
: 4 004 1 ! MODIFIED BY: : 
; «6464 Bee 1! : 
s 6§ 045 1 ! 1-001 = Original. DJS 18-FEB-1981. This module wo sreated by : 
: 6446 BOG 1! extracting routine EDTSSEXE MD alt ee »Sreuie ES CTRL. 3 
: 67 0047 1 ! 1-002 - Regular zoe the headers. ~ 4-Feb-1 ; 3 
; «48 0048 1 ! 1-003 - Fix le name and TE A ny and remove control C handling. 3 
; | «(649 0049 1! JBS Hehare19 1 ; 
; 2 0050 1 ! 1-004 - Use the ASSERT macro. JBS 01-Jun-1981 

; ith 1 ! 1-005 = Don't change the current mode to Line just because the change mode 

3 26 O26 1! rocessor exits, since it now exits at the end of the journal file. 

3; % 055 1! earrange the coop ing logic to take the new recovery precegure into 

; | «54 054 1! account: his means this module no Longer has EDTS$ (Oy, MOD a an 

7 055 1! molicit input. Also, remove L_LINE and L CHANGE . JBS 02-0ct-1981 

5; et] 1 ! 1-006 = Don't fail to oognter change mode Tf the terminal is unknown or hard copy. 

pee 0057 1! JBS 20-0ct-1 
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28 8 -007 = Take the prompt from the gt bal rather_than if maconstant. JBS 21-Oct-1981 
- 8 = Remove length of erongs string. JBS 23-0ct- 981 
60 60 -009 - Correct an error in a comment. JBS 1/=Nov-198 
61 6 “010 = Put L_LINE and L_CHANGE back TMV 7-Dec-81 
6 -011 = Add control C perel ing for Line mode. oes 21-Dec-1981 | 
o - \¢ - Debug control C handlin JBS 24-Dec-1981 
-_ = } 


Before returnin Load MACCA into mgng'y. in case we are returning 
to it on the PDP-11. JBS 10-Mar-198 

014 - wp? by nogusr lay logic to avoid undefined symbols at build time. 

-015 = Remove the reference to EDTSSLOAD_MACCAL, JBS 18-Mar-1982 

“318 - Add alternative control C¢ moseage JBS e4-May-19 

-017 = Remove L_LINE and L_CHANGE. JBS 03-Jun-198 

318 - Reset command buffer if “c seen from terminal. STS 15-Jul-1982 


[COONS wn 


} 
Don't clear the control C counters unless we are reading from | 
a terminal. Also, treat the etertys ile Like a macro for 
control C processing. JBS 28-Jul-198 
1-020 - Improve the control Z ignoring logic: don't journal ignored 
control Z's, since three in a row will be mistaken for the 
end of the journal file on a /RECOVER. JBS 29-Jul-1982 | 
Simplify the call to initialize the keypad. JBS 13-Jul-1982 
Clear control C if we don't have a macro. STS 06-Oct-1982 
Improve the aopegrense of the Listin JBS 14-Jun-1983 | 
) 


Exit on contr from terminal. JBS 20-Jun-1983 
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TSEXEC - d exit Lin d change mode Ib-se Sep-1984 VAX-11 Bliss-32 V4.0-74 Page 3 
nde tit bh i) Fill alain —— adie Been Fee Fo egy NN ehAStencceot saclexec.eui;1 °29 ry 
: 5 8 : } XSBTTL ‘Declarations’ : 
; ; O86 1 | TABLE OF CONTENTS: ; 
; 89 088 1 - 
: 20 : 3 REQUIRE 'EDTSRC:TRAROUNAM'; 
 § 05¢9 1 FORWARD ROUTINE ; 
.°¢ 05 0 EDTSSEXE_CMD; ; 
: 9 236 1 | 
; 3 0338 i INCLUDE FILES: | ; 
: 98 0535 1 | ; 
: 133 0536 REQUIRE 'EDTSRC:EDTREQ’; | : 
: 101 067¢ 1 | | 
Bb es : 
eior fait : 
i 106 0677 1 | EQUATED SymBOLS: | ; 
; 108 0679 1 I+ | : 
3; 109 0680 1 | EDTSSMACCAL uses this symbol indirectly to refer to this routine, so that it : 
: 19 oe 1 | i can be excluded from the overlay analysis. : 
: 112 0683 1 
> 113 0684 1 GLOBAL BIND 
>: 114 0685 1 ROUT INE 
: 115 0686 EDTSSEXE_CMD_NOOVERLAY_REF = EDTSSEXE_CMD; | 
: 117 0688 1! 
; 118 0689 | OWN STORAGE: 
fit Gis Ra gee 
; 182 0695 | EXTERNAL REFERENCES: 
> 126 0695 1! In the routine 
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EDTSEXEC EDTSEXEC = enter and exit Line and change mode 16-Sep-1984 00:17:20 VAX=-11 Bliss-32 V4.0-74 Page 5 
04-000 EDTSECKE_CMD = execute commands . 12=808-138e 93235:84 DISKSVMSMASTER: CEDT.SRCJEXEC.BLI;1 . (3), 
>; 183 0753 EDTSSCHK_CC ! Check for control C 
; 184 0754 EDT$SMSG-TOSTR : NOVALUE i Convert a message code to a string 
> 185 0755 EDTSSOUT-FMTBUF : NOVALUE, i Print the format buffer 
; 10 7 § EDTSSCLR_CC : NOVALUE, ' Clear control C flag 
3 ier 7 f EDTSSFMT_CRLF : NOVALUE; ! End of output Line 
; «(189 0759 EXTERNAL 
; 190 0760 EDTS$G_TRN_TBLINIT, ! Translate table init fla 
3; 9 0761 EDTSSA_CMD_END, ! Pointer to end of command Line 
: 135 pro¢ EDTSST_CMD_BUF, ! Command Line buffer 
i” 076 EDTSSA_CMD_BUF, ! Pointer into command Line buffer 
; 194 0764 EDTS$G_CMD_LEN, ! Length of current comman 
; V9 0765 EDT$$G_EXITD ! Did we exit with the last command? 
; 196 0766 EDTS$G_INP SRC, ! Source of input commands 
: 197 0767 EDT$$G_EDIT_MOD, ! Current editing mode 
; 198 0768 EDTS$G_TI_TYP ! Type of terminal 
: 199 0769 EDT$$G_TXT_ONSCR, i Text was written to screen 
; $30 0770 EDTS$$Z_PA_STK, ! Parser semantic stack 
; 201 0771 EDTSST_PMT_LINE : VECTOR C, BYTE), ' Counted ASCII opr ine of Line-mode prospt 
; soe ore EDTS$$G_CC ' Set if control C ac wet hy aborted anything 
; 20 077 EDT$$G_TIN_OBUFPOS, i Current length of journal record | 
; sed pore EDT$$G_JOU_VALID; ! Set to 1 if there is a record in the journal buffer 
: | 
; 508 0776 '¢ 
; or 0777 ! Specify the messages used in this routine. 
; 208 0778 te | 
; 209 0779 MESSAGES ((ABOBYCC, CTRC__IGN)); 
; 210 0780 
ae 4) 0781 CAL 
; si¢ Ores SAVE_SOURCE, . 
ae 4 0783 2 EOF _FLAG; ! 1 = reached end of file, 2 = control C 
3 sié 0784 2 
: 215 0785 2 !+ | 
3 $1$ 443 2 : If we are not coming from the terminal but a control C has been typed, get out now. 
: 218 0788 : | 
3; 219 0789 IF ((.EDT$$G_INP_SRC NEQ INP_TERM) AND (.EDT$$G_INP_SRC NEQ INP_JOURNAL)) 
: 220 0790 THEN 
3 $s 0791 
; 3¢ 0798 IF EDTSSCHK_CC () 
3 de 079 THEN 
; 224 0794 BEGIN 
3 6€e2 0795 EDT$$G_CC_DONE = 1; 
; $$ O738 RETURN” (23; 
; 79 END; 
: 228 0798 
; $$ 0799 SAVE SOURCE = .EDT$$G_INP_SRC; 
; 230 3800 EDT$$G_INP_SRC = .SOURCE; 
: 231 801 EDT$$SA-CMD-BUF = CHSPTR (EDT$$T_CMD_BUF); 
: 3 Bang CHSWCHAR (*!", EDTSST_CMD_BUF); 
; Hi Bahr EOF _FLAG = 0; 
; H Babe WHILE ((.EOF_FLAG EQL 0) AND ( NOT .EDTS$G_EXITD)) DO 
: 3 0807 IF (.EDT$$G_EDIT_MOD EQL CHANGE _MODE) 
; 238 808 THEN 
; 239 0809 '¢ 


END 
ELSE 
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EDTSEXEC EDTSEXEC = enter and exit Line and change mode 1e-se -1984 00:17: VAX-11 Bliss-32 V4.0-74 Pa 6. 
04-00 ED Tee E_CMD = execute commands ° 12-8081 38 99:35:88 DLEKSVMGMASTERSCEDT  SRCTEXEC.BLI:1 - (3). 

re , We are in change mode, go into the change mode processor. 

4 1 BEGIN 

rk 18 

44 pate LOCAL 

45 a2 STATUS; 

46 0 1g 

247 081 1+ | 
48 bai8 ! Init the keypad translation table if necessary. 
rs th ! If the initialization fails, drop into Line mode. 

51 082) STATUS = 1; 

238 Be 5 IF ( NOT .EDTSS$G_TRN_TBLINIT) THEN STATUS = EDTSSDEF_DFLTK (); 
85 0825 IF_. STATUS | 
56 8859 HEN 
57 0827 EOF _FLAG = EDTSSCHM_EXE () 

258 0828 ELSE 

259 0829 GIN 

260 0830 EDTSSMSG_TOSTR (.STATUS); 

261 0831 EDTSSFMT_ CRLF (); 

26 bees EDTS$G_EBIT_MOD = LINE_MODE; 

26 083 END; | 

ses 0833 | 

266 0836 

267 0837 ' command Twhich sets EDTS$G_EDIT_MOD to LINE_MODE) and at the end of the 

0838 ' journal file. In the Latter case it returns a 1; if it returns because 

269 0839 ! of exiting it returns a 

270 29 !- 

0 
ak 


| 
| 
BEGIN | 
IF (.EDTS$G_INP_SRC NEQ INP_MACRO) THEN EDTS$SCLR_CC (); | 
m ASSERT (.EDTS$G_EDIT_MOD EQL LINE_MODE); ! We are in Line mode | 
; See if we must read a Line. | 


=) 
4 


IF (CHSRCHAR (.EDTSSA_CMD_BUF) EQL XC'!") 
BEGIN 
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oo 
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OCAL 
LOOP_DONE 
EOF _COUNTER; 


EOF COUNTER = 0; 
* LOOP_DONE = 0; 


i We stay in the following loop until we either have a command to process or we have 
: end of file from somewhere other than the terminal. In the later case EOF_FLAG is set. 
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3 
‘4 
! EDTSSCHM_EXE returns after a series of commands. It returns on the EXIT 
4 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
6 
4 
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910 
END; 


END; 
'¢ 
: Parse and execute the command. (Unless it is a comment or we have reached EOF.) 
IF ( NOT .EOF_FLAG) 
THEN 
BEGIN 
IF ((.EDTS$$G_CMD_LEN EQL 0) OR (CHSRCHAR (EDTSST_CMD_BUF) NEQ 2C'!")) 
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setts ED TSSCKE_CMD = execute commands ° 1a-8ep-19 4 99335569 DT EKSUMCMASTERSCEDT Sec SEXEC.OL1;1 . (3) 

3 97 67 4 WHILE ( NOT .LOOP_DONE) DO ; 
: 298 o 68 > BEGIN . ; 
3 90 0 79 IF_(EDTSSGET_LN (EDTSST_PMT_LINE C1], .EDTSST_PMT_LINE (OJ) EQL 0) : 
: 30 O87 LOOP_DONE = 1 ; 
; 88 B58 ELS re : 
: 304 0874 6 BEGIN 3 
; 86 SB $ IF (.EDT$S$G_INP_SRC NEQ INP_TERM) 
; 307 8B? § THEN oe r 3 
: 5308 pare IN : 
; 309 79 7 EOF _ FLAG = 1 : 
: 310 0880 7 LOOP_DONE = |; ; 
; 311 0881 7 ND ; 
; \¢ ett § ELSE : 
3 1 088 BEGIN 3 
; 314 0884 7 !+ 3 
: 15 0885 7 ! This is an EOF from the terminal, invalidate the journal buffer. . 
$ 19 base 4 } If we journal this it may be confused with the end of the journal file. : 
; 316 0888 7 EDT$$G_TIN_OBUFPOS = 0; ; 
; 319 0889 7 EDT$$G_JOU_VALID = 0; : 
; 320 0890 7 !+ 3 
3 (Set 0891 7 ! Convert three EOFs in a row into a QUIT/SAVE command. The purpose ; 
3 35¢ 0892 7 ! of this feature is to prevent a batch job from getting into an endless F 
3 ie 0893 7 ! loop if EDT runs into the end of the command file. 3 
3 $e peoe Note that the command is not placed in the journal file. : 
; 326 0896 7 EOF_COUNTER = .EOF_COUNTER + 1; ; 
3 Ser 0897 7 3 
3 28 0898 : IF (.EOF_COUNTER GEQ 3) : 
3 $3 0899 THEN ; 
: 0 0900 8 BEGIN 3 
s 33 0901 8 CHSMOVE (10, UPLIT (BYTE (*QUIT/SAVE!')), .EDTSSA_CMD_END); é 
; 33 0902 8 EDTS$A_CMD_END = CHSPLUS (.EDTSSA_CMD_END, 9); | ; 
; 33 0903 8 EDT$$G_CMD-LEN = .EDTS$G_CMD_LEN # 9; | : 
; 334 0904 : LOOP_DONE = 1; 3 
i 38 0906? 
s 37 $909 6 END; 3 
; soe 0908 6 ; 
3 9 0909 5 END; 3 
3 0 5 $ 
: 1 4 : 
3 : : 
3 4 3 
3 3 2 
3 4 3 
s & 3 
; 5 3 
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Ou 000 EDTSECKE _CMD = execute commands ° 14-§ sats 1 99:35:88 PEKDUMGMASTER-CEDT SRC SEXEC.OLI;1 ’ (3) 
: 4 924 4 THEN 

3 5 925 4 

3 $ 83 8 ¢ IF EDTSSPA_CMD () 

: 8 09¢8 4 EDTSSLNM_CMD (EDTS$Z_PA_STK) 

: 359 0929 4 ELS 

:; 360 0930 4 EDTSSG_TXT_ONSCR = .EDTSSG_TXT_ONSCR + 1; 

Bo BES, 

; _° 

; 36 09 : 4 ! If the control C flag is set, it is Likely that the command was aborted 
3: 36/ 0934 4 ! by a control C. 

s 3eS 88 5 4 !- 

; 366 9 : 4 

; 367 09 4 IF EDTSSCHK_CC () 

; 368 0938 4 

; 369 0939 5 BEGIN 

; 370 0940 5 

; 71 0941 6 IF ((.EDTS$G_INP_SRC EQL INP_TERM) OR (.EDTS$G_INP_SRC EQL INP_JOURNAL)) 
3 $§ 0942 5 THEN 

; =F 0943 6 BEGIN 

: 376 0944 § 

3 sro 0945 IF (.EDTS$G_CC_DONE) 

: 376 0946 6 HEN 

3 Sve 0947 6 EDTSSMSG_TOSTR (EDTS$_ABOBYCC) 

: 378 0948 6 ELS 

; 379 0949 6 EDTSSMSG_TOSTR (EDT$_CTRC__IGN); 

; 380 0950 6 

s 381 0951 6 EDTSSOUT_FMTBUF (); 

3 see 0952 6 !+ 

3 Ser 343, ? We've seen a control C from the terminal, so clear out the command buffer. 
s 38S 0955 6 EDTSSA_CMD_BUF = EDTS$T_CMD BUF; 

; 386 0956 6 EDTS$$SA-CMD-END = .EDTSS$A CMD BUF; 

; 387 0957 6 CHSWCHAR (*!', .EDTSSA_CAD_END); 

; 388 0958 6 END 

; 389 0959 5 ELSE 

: 390 0960 5 !+ 

3 0961 5 ! We have seen a control C but we are not reading from the terminal. Return to our caller, who 
: 4 Boe : will arrange to print an appropriate message. 

: 394 0964 6 BEGIN 

s 395 0965 6 EDT$$G_CC_DONE = 1; 

$ 096 EOF_FLAG = 2; 

: 397 96 } 

; 398 968 

; 0969 4 END; 

3 0970 4 

; 401 0971 END; 

; 40 097 

; 40 97 END; 

: 404 974 

; 405 975 '¢ : 

; 06 97 ! when the loop falls through we have either reached an end of file or 

; rt't4 44 seen an EXIT command. Tell the caller which. 

; 4609 97 EDTS$G_INP_SRC = .SAVE_SOURCE; 

: 610 98 RETURN” (EDF _FLAG); 


<m 
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; 411 0981 1 END; ! of routine EDTSSEXE_CMD 


-TITLE EDTSEXEC EDTSEXEC = enter and exit Line and cha 
; nge mode 
-IDENT \V04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


21 45 56 41 53 2F 54 49 55 51 00000 P.AAA: .ASCII \QUIT/SAVE!\ : : 
EXTRN EDTSSDEF_DFLTK EDTSSCHM_EXE : 
EXTRN EDTSSGET“LN, EDTSSPA CMD : 
EXTRN EDTSSLNM-CMO, EDTSS$CAK CC : 
-EXTRN EDTSSMSG_TOSTR, EDTSSOOT FMTBUF : 
XTRN EDTSSCLR7CC, EDTSSFMT_CREF : 
EXTRN EDTS$S$G_TRN_ NIT : 
-EXTRN EDTSSA_CMD-END, EDTS$T_CMD_BUF : 
-EXTRN EDTSSA_CMD-BUF, EDT$$G~CMD-LEN : 
XTRN EDTSSG_EXITD, EDT$$G_IRP_SRC : 
EXTRN EDTSS$G_EDIT ; 
EXTRN EDT$$G-TI_TYP, EDT$$G_TXT_ONSCR | ; 
EXTRN EDT$$Z~PA~STK LINE | : 
-EXTRN EDTS$$G-CC“DONE, EDTS$$G_TIN_OBUFPOS | : 
EXTRN EDT$$G-JOO VALID | ; 
EXTRN EDTS_ABOBYCC, EDTS_CTRC__IGN ; 
EXTRN EDTSSINTER_ERR | ; 
OFFC 00000 ENTRY EDTSSEXE_CMD, Save R2,.R3,R4,R5,R6,R7,R8,R9,-; 0698 : 
58 000000006 00 9€ 0000 MOVAB EDT$$T_CMD_BUF, R11 : : 
5a 000000006 00 9 9000 MOV EDT$$G_INP"SRC, R10 ; | : 
50 6A 00 0001 MOVL  EDTSS$G"INPTSRC, RO : 0789. ; 
1A 13 0001 Bea. ~=—sédTS$ ; | 
03 50 D1 0001 CMPL =O, #3 ; 
15 13 00018 BEQL=Ss«s1$ ; 
000000006 00 99 FB O01 CALLS 40, EDTSSCHK. CC : 0792 
000000006 00 01 0 0024 MOVL #1, EDTS$$G_CC_DONE : 0795 | 
50 2 b0 00 : MOVL #2, RO ; whoa 
59 6A 06 OOeF 1$ MOVL § EDT$$G_INP_SRC, SAVE_SOURCE : 0799 | 
6A 06 AC 0032 MOVL SOURCE? EDTS$G_INP SRC ; 0800 | 
000000006 00 8 : 99 MOVAB EDISs! CMD_BUF; EDT$SSA_CMD_BUF ; 0801 
68 1 9 MOVB «#33, EDTSST_CAD_BuUF ; 0802 | 
D4 0004 CLRL EOF _FLAG ; 980 | 
D3 42 28: TSTL EOF-FLAG ; 0805 | 
: 4 BEQL 4$ ; | 
015A 33 46 3$: BRW 23$ ; | 
Fo 900000006 £ 49 4$: BLBS EDTSS$G_EXITD, 38 ; 
0000006 p 0 st EDTSSG_EDIT_ D : 0807 | 
: 1 0 ; MOVL oft Status ; 0821 | 
000000006 E BLBS Epts G_TRN_TBLINIT, 5$ ; 0823 | 
000000006 00 FB 6 CALLS EDTSSDE _DFL ; | 
C E9 00069 5$: LBC = STATUS, 6 : 0825 
000000006 00 00 FB 0006C CALLS #0, EDTSSCHM_EXE ; 08 
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nett ED TS8CKe CHD = execute commands 12286871382 99335:89 DISKSVMSMASTER: CED | 
58 50 p60 73 MOVL RO. EOF _FLAG | 
, bp 48 6$ PUSHL STATUS aici : 0830 ; 
So00R008 90 d FB o008t FALLS 10, EDTSSFn PURE ; 083) : 
33333888 8 1 ee py |: 
01 rH bi \ 7$: CMPL DT$$G MC " 045 ; 
5 te tats HS BS otsscu Be ao! 
apenas 4 000000006 Q of ‘ 8$: CMBL sh G Bit Rao, rh 0847 | 
Ab CALLS DISSINTER_ERR : ; 
eestor eatie 8 000000006 6 00 OAD 9$ OVE EDtsiA, HD. BUF> RO 0852 
3 8 78 So089 LRG i DONE : 0861 : 
é ts OBB LBs COOP“DONE, 138 ; 0867 ; 
e ; 5 dope MOVIBL EDTSST_ PMT_LINE, =(SP) ; 0870 : 
’ poo000006 $0 f tas PUSHAB EDTSST-PMT“LINES1 ; : 
are. ae re 00 CALLS #2, EDTSSGET_LN 5 : 
000000006 00 36 00¢8 rst 18 3 ; 
6A p 0006 TSTL EDT$$G_INP_SRC ; 0876 
$F 88 Soop aovt a EOF _FLAG ; 0879 ; 
“s t 39 Soop BRE 128 i 0880 
900000006 66 D4 OoODF 118: ct = BR T9861 18_Cour POs : 0889 ; 
000000006 9 D4 OO0ES CLAL EDTS$G JOU. : oer 
Oe bore {MPL F-COUNTER, #3 ; 0898 ; 
03 7 D1 OOOED CMPL FOF -C UNTER, 
8 DO O00F MOVE EDTSSA CMD_END, RO ; 0901 ; 
re 6 ; OOF move #10, PTAAA> (RO) ; : 
, 66006 6¢ 3 OOF DD #9, EDTSSA_CMD_END ; 090 ; 
900000006 00 Be ED Oot De ADDL ; EDTSSG~CMDULEN : 090 
000000006 00 09 CO 00106 ADDL2 #9. ED Gach : Oo) 
36 1 00 9190 12$: MOVL n LOOP ess: 
AQ 11 0011 BRB log pry : See? 
7F 58 €8 00112 138: BLBS EOF SFL G28 : S33 
momen BG 2 ee ee : : 
21 68 91 011D CHPB EDISST_ CMD_BUF, #33 ; 
1 L : : 
000000006 00 06 8 1 2 14$: CALLS i. igyesrs. CMD ; 0926 
a SF 001 PUSHAB ED{SS2.PA ; 0928 : 
spsniameeae 8 001 CALLS. #1, EDTSSCNM. CHD 
000000006 00 1 £8 001 CALLS #1, 
6 D6 901 ine EDTS$G TXT_ONSCR ; 0930 ; 
000000006 D6 00138 158 INCL grate s¢ : 
000000006 0 FB 141 168 CALLS 40, ; 
% 50 001c8 move isk SNP SRC, RO ; 0941 ; 
: sey Bie erat sts beeics) 
oR Hn BR Bh Pal 
4 ; 
17$:  BLBC  EDTS$G_CC_DONE, 188 ; 

08 gonnennne go EB as 7s: be fovescycc0m ae 

| 


foes b00. ED TSK z: abo csocele tamer aie -etpegee ise 305-1382 93: df 8% DT RKSUMGHASTERSCEDT SRC EXEC.BLI;1 eas Rs 


1 j 
6 11 001 BRB 19$ ; 
000000006 8F DD 001 188: PUSHL #EDT$_CTRC__IGN + 0949 
G 1 FB OO16A 198: CALLS #1, EDTS$MSG_TOSTR : 
G 0 FB 00171 CALLS #0, EDT$S$OUT~FMTBUF + 0951 
G 9€ 00178 MOVAB EDTS$T_CMD_BOF, EDTS$$A_CMD_BUF + 0955 | 
0 G 900000006 DO 0017F MOVL § EDTS$A-CMD“BUF, EDTSSA_CMD_END : 956 
G p 18A MOVL  EDTSSA CHD END, RO : 095 
6 1 191 MOVE #33, (R : 
A 11 194 itt BRS 2e$ : 0941 
000000006 99 1 06 196 21$:  MOVL #1, EDT$$G_CC_DONE : 0965 
2 19D MOVL #2, EOF _FLAG 3 366 
FESF 31 0140 338: BRW 2$ : 09 
$A 29 DO OO1A3 23$: # MOVL  SAVE_SO uace EDT$$G_INP_SRC + 0979 
0 8 DO O1Ag MOVL POF FLAG. rb + 0980 
04 OO1A RET : 0981 
; Routine Size: 426 bytes, Routine Base: _EDTSCODE + OOOA 
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EDTSEXEC EDTSEXEC = enter and exit Line and change mode 16-Sep VAX-11 Bliss-32 V4.0-74 Page 12 
- EDISECKE CMD” - execute commands . 14-Sep 71982 99: fi 8 DISKSVMSMASTER: CE 134 SRCTENECBLI:1 ’ (4) 
; «4415 984 1 END ! of module EDTSEXEC 
i 41g 038s 1 series actin 
; «(41 986 0 ELUDOM 
EDTSSEXE_CMD_NOOVERLAY_REF == 
EDTSSEXE_CMD 

; PSECT SUMMARY 
: Name Bytes Attributes 
; _EDTSCODE 436 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
re ee ee, Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
> _$255$DUA28:(EDT.SRCJEDT.L32;1 377 7 1 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:EXEC/OBJ=OBJ$:EXEC MSRC$:EXEC.BLI/UPDATE=(ENHS$:EXEC) 

Size: 426 code + 10 data bytes 

Run Time: sel. 

Elapsed Time: 00:27.9 

Lines/CPU Min: 778 


Lexemes/CPU-Min: 8023 
Memory Used: 137 pages 
Compication Complete 
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